(compilation-handle-exit): If process-status doesn't

exist (e.g. on MSDOS), use an empty string.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 54945fe99838703a4577ccbb99fc8e5ba1fd1fbb..881fb5a2f93ebb9722f6f98c6662dfe098ecf2e0 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -601,7 +601,10 @@ See `compilation-mode'."
     (forward-char 1)
     (setq mode-line-process
          (format ":%s [%s]"
-                 (process-status proc) (cdr status)))
+                 (if (fboundp 'process-status)
+                     (process-status proc) 
+                   "")
+                 (cdr status)))
     ;; Force mode line redisplay soon.
     (force-mode-line-update)
     (if (and opoint (< opoint omax))